home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / FOR-4.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  317 b   |  13 lines
  1. ' FOR-4.BAS
  2. ' This program uses a FOR loop and the COLOR statement
  3. '   to change both the foreground and background colors.
  4.  
  5. CLS
  6.  
  7. FOR i% = 1 TO 15        ' use colors 1 through 15
  8.     COLOR i%, i% - 1
  9.     PRINT "Current foreground color is"; i%;
  10.     PRINT "; current background color is"; i% - 1
  11. NEXT i%
  12.  
  13.